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; 1 001 MODULE PASSRESET2 ( XTITLE Fogger’ procedure’ $ 
: § B28 we = '1-00 ! File: PASRESET2.B32 Edit: S$BL1002 ; 
;  § 0004 1 BEGIN 
: 5 0005 1! : 
3 8 4 : etal hatte Ps 
: !® : 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | ; 
; 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: 19 Bats : ~ ALL RIGHTS RESERVED. * : 
° . ® * 
; i Bag 1 '* THIS . . 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ° 
<3 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
;s % 0014 1 !* INCLUSION OF tHE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 5 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
: i Bete : * TRANSFERRED. * : 
° :* ® Py 
; 19 0019 1 !«® phe | INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
3 20 Bo59 1 Ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; $3) B08) : ” CORPORATION. * 3 
3 ! ¥ 3 
: 23 $038 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; 24 Bose 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * $ 
aS 0025 1 !* . : 
; = 0026 1 !* * 3 
: e7 Q027 1 eee e eee ee eee RARER RRR A EEA RAE E AERA AERA TEAR 3 
c*? an 0028 1! 3 
; 2 94 1 3 
; 0030 1 !++ 3 
; 0031 1 ! FACILITY: Pascal Language Support 3 
ee ihe 1/ 5 
Hy 33 003 1 ' ABSTRACT: 3 
; 0034 1! : 
;: 0035 1! This module contains PASSRESET2, which implements the 2 
; 38 ones ; VAX-11 Pascal RESET procedure. : 
: $ sit ' ENVIRONMENT: User mode - AST reentrant : 
i 40 0040 1 { AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 : 
.-o 0042 1 | MODIFIED BY: ; 
s 65 0043 1! F} 
3: (44 0044 1! 1- “001 - Original. SBL_ 1-April-1981 3 
; 4 ayee i i 1-002 - Only do SREWIND on file oriented devices. SBL 29-July-1982 | : 
; e 0047 1 | 3 

| : 


ee ey 


NC” 
™N 
| ~ 
we 
a 
@ 
| a 
| 
oa 
_ 
Nm " 
nue a 
w@ 4 
~~ = | 
mm a 
or V 
etl 3 
rw a 
>w ~ 
i: 4 w 
Nm 
mM ba 
‘a wn 
or _ 
nv uv 
—x w 
_—M ” 
@- a 
a 
ore © 
—-a w 
mn” a 
<< on 
<a ao 
>ws = 
c 
- 
— 
maT ba = 
NAN nw” us 
oe ee —) ive) 
We @ uw 
own = ce 
or @ «© 
or coe 
= °o 
wv w a 
coco 
ow -e =o 
-— 
‘es 
aa 
Woe 
eH 
— ows 
er 
ee 
oOo *e 
os o w 
” a 2 
- z oO a] 
" Oo < oe <x 
cH a. ” a 
o - ” _- oO ee 
—- — < 2 = ” 
-~ 2 a w | 
on ee - ts ee oO 
- um z r 4 2m 2 oe 
oe ww _ Oo “ee ws 
~~ 2 4 Vv mw we Ww we oO w 
fs) oa poe TT) zaoyna2a =z <x«z 
o w [4 ve Ow o o oe oOo 
a 2a cd oOo ca - £8484 2 -« £090 2 
- oO A ” w wn _ 
w& oO uw w an Oo -_ a ” 
(= — J ad [+ 4 =) [4 a < =) 
3 - oO _ 2 <a v —_ [ve) 2 
uv - = ~ ] = = t=) _ 2 
@2#c @ a eo _ a w ao oO 
7o WW w oO 
a? POm— eee es a —emome “o See eee ee ee ee ee et et ee) ee 
ee LLL OO OOOO 
- @ 
WH —§_ DHOOM CIM P- DOOM UM TMNOR. DOO TUM TMOR. OKO 
DD TF FDDDD ee  NICNUICKINUINICUIGUICU CI CUM MIPIM MPP) wT 
we OOCOCCCK KKK KKK KK KK CCK eC KK CCC ere Ke 
Za OOOO OCOCOCOCOOSCOCOOCOCCSCOOOCOOOOOOOOCOO 


pee eb wate Shy 4 ety +A A we eA ait fe at Ney hd at Ne 
TAMMMAMNMANNANOODOODODOOOORAAAAALAL KR 


PAgsRe SET2 
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FP eS PSPS eS ee FOS eS FSS eS s*S*SeSrsersesersese*eserersearsersearese ere 


SiDE EFFECTS: 


Throws away partial Line contents, if any. 
Positions to beginning of file. 

Switches to Inspection mode. 

Does a GET. 


SIGNALLED ERRORS: 
ERRDURRES - Error during RESET 


RESNOTALL = RESET not allowed on unopened internal file 
INSNOTALL = Inspection mode not allowed for WRITEONLY f 


MEUN 9 OONOULSWN “OC VONOULSWN—OOONOu 
FUN 9 OONO VUE WN O VDONAOUES WN “OO OOnNOu 
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PASSRESET2 RESET procedure 16-Sep-1984 02:05:23 AX-11 Bliss-32 V4.0-74 
A002 PASERE ET2 = RESET procedure 1o-ge8= 1382 95:09:87 PASRTL SREIPAGRE SES. 68251 
; 80 141 1 &SBTTL ‘PASSRESET2 - RESET procedure’ 
; 8) oie 1 GLOBAL ROUTINE PASSRESETS (? ' Do a RESET 
: B¢ 14 1 PFV: REF SPASSPFV_FILE_VARIABLE, ' File variable 
— = 0144 1 OR ! Error unwind address 
: 84 0145 1 ): NOVALUE = 
: 89 3198 1 
: 86 0147 1 !4+ 
| rH 3148 ! FUNCTIONAL DESCRIPTION: 
>: 89 0150 1! PASSRESET2 implements the VAX-11 Pascal RESET procedure. It 
; 0151 1! opens the file not already open, rewinds to the beginning of 
: 4! 8126 ! the file, enters Inspection mode and does a GET. 
: 9 0154 1 | CALLING SEQUENCE: 
; 694 0155 1! 
; 0156 1! CALL PASSRESET2 (PFV.mr.r) 
; © 0157 1! 
3 97 0158 1 ! FORMAL PARAMETERS: 
; | «698 0159 1! 
s 0160 1! PFV - The Pascal File Variable (PFV) passed by reference. 
; : pies : The structure of the PFV is defined in BASPFV.REG. 
; 2 88 1 i ERROR - Optional. If specified, the address to unwind to 
; 3 64 ! } in case of an error. 
; } | IMPLICIT INPUTS: 
: : NONE 
; { IMPLICIT OUTPUTS: 
: NONE 
; ROUTINE VALUE: 
: 1} NONE 
8 1! 
; 1! 
8 3 
3 1! 
3 1! 
3 7% 
3 . F 
3 1! 
: 1! 
: 1! 
3 1! 
3 1! 
; 1! 
3 1! 
5 1! 
: : 


ee a ek eh ee a ee et ee ee a a ed ed dd od dd 
DWOOO OOOO 00000009 09 O98 SII NI SII NINO AAO 


ile 
BEGIN 
5 LOCAL : 
$ FCB: REF SPASSFCB_CONTROL_BLOCK, ' File control block 
PFV_ADDR: VOLATILE, ! Enable argument 


eter pmestinantsineeeasaainnncianvtieerseistin ateneneiiaasnmapuiaistiaiilian mnapiaidade aia 
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1-002 PASEREGETS RESET procedure 1eageh= 138 93:83:82 — FAKS AT Okisgo ze VG 05788 9 (3) 

7 138 UNWIND_ACT: VOLATILE, ! Enable argument 

3 122 ERROR_ADDR: VOLATILE; ! Enable argument 

0 8 01 BIND 

1 8 6 RAB = FCB: REF BLOCK (, BYTE]; ! RAB is also FCB address 

: 0204 BUILTIN 

¢ 8 b2 ACTUALCOUNT; 

6 0 09 ENABLE 

f 0 4 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR) ; ! Enable error handler 

9 6 1 IF ACTUALCOUNT () GEQU 2 

0 021 THEN 

1 es! ERROR_ADDR = .ERROR; ! Set unwind address 

be4: 

4 021 

5 021 

6 02 

‘ 8g PFV_ADDR = PFV CPFVSR_PFV]; 

9 bs + 

° Validate and lock PFV. 

5 PASSSVALIDATE_PFV (PFV CPFVS$R_PFV]; FCB); 


4 
Set unwind action to unlock file. 


UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
+ 
Open file if it should be implicitly opened. 


IF NOT .PFV CPFVS$V_VALIDJ 
PASSSOPEN_IMPLICIT (PFV CPFVS$R_PFV], FCB CFCBSR_FCBJ; FCB); 


+ 
See if the file is open. If not, open it. 


IF NOT .PFV CPFVS$V_OPEN] ! Not open 
THEN 


+ 
If PFD address is relative, make it absolute. 


Pe Se Se Se Se Ge Se Se Ge Ge Se Se Ge Fe Se Ge Ge Ge Fe Ge Ge FH Se Ge SH SF Ge GHGs Ge FHSS Se GH SHSs CHESS Se SESH Se SESE SHS SESE SE SESH Oe SESH asese 
ak a a a a a ed a ak td = as = 8 et 8 a 


C909 0909 0909 SII SSN NSS AAA AAA AAA AMM MIIIUIUUIU BBB W 
ANOLSSSELEARAN ALS SSNS ARAWLSSHVSE ALF 
PAN OOOO UNE WN 0 OONOUES WIN $ O OONOAOU EWN “OC OONOUSWH CO 


AANA AAI AILIPPPININIPYPINPYPYINIPONINPYNINININPININPINPIPIPINPUPONPINPOPYIPINIPONY 


IF .PFV CPFVS$V_RELPFD) 


1+ 
Set enable argument for PFV address. 
| 
| 
| 
| 
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paggnesete 
1-002 


>m 


N 
iM lade =_.PFY CPFVSA_PFD] + PFV CPFVSR_PFVI; 
PFVSV_RELPFD) = 0; 


Sobek oh eke) 
ONOUE 


PFD = .PFV CPFVSA_PFD]; ! Get PFD address 
IF .PFD CPFDSV_EXTERN] ! Is it an external file? 
PASSSOPEN (PFV CPFVS$R_PFV], PASSK_HISTORY_OLD; FCB) 


ELSE 
EN SPASSIO_ERROR (PAS$_RESNOTALL,0); ! RESET not allowed 


MITITOPOPOTororforororororr 


PAAAAAAOCOMIVIVIVI WH 
CONAN "OVOOnNOou 


POPIPINIPIPINIPININININININININININININ 2 2 2 
Ne Ue MPUNVUO SROs 


RABSC_SEQ; ! Set sequential access 


RAB CRABS$B_RAC 
Cancel previous no-l 


RAB RABBY NL) : ! ock 
RAB LRAB$B_KRF) = 0; ! Rewind primary key if indexed 
IF NOT SPASSRMS_OP (SREWIND (RAB=.RAB)) 
IF .RAB ERAgsL=St8) NEQ RMS$_IOP AND } Inappropriate operation 
n 


4 


wa 


0 
d, 
5 
6 
7 
8 69 
9 70 
0 71 
1 si¢ 
g $f 
Z osie IF .FCB CFCBSV_NOREAD] 
2 $f6 SPASSIO_ERROR (PAS$_INSNOTALL,0O); ! Inspection mode not allowed 
7 0578 ? ; 
8 0279 ! If a textfile, and if in Generation mode, and if the buffer 
9 sB0 ! is not empty, do a WRITELN. 
220 0281 !- 
221 ose¢ 
222 028 
ssi osae (.FCB CFCBSA_RECORD_CUR] GTRA .FCB CFCBSA_RECORD_BEG)) 
225 0286 PASSSWRITELN (PFV CPFVSR_PFV3, FCB CFCBSR_FCB)); 
226 0287 
2e7 0288 '+ 
228 0289 ' Cancel any lazy lookahead in progress. 
229 0290 t= 
230 0291 
231 5954 FCB CFCBSV_LAZYJ = 0; 
232 029 
233 OS3e ‘+ . 
Ste O592 : Is the device a file oriented device? If so, proceed with rewind. 
36 0297 
37 8 98 IF .FCB CFCBSV_FODJ ' File Oriented Device 
38 99 THEN 
0300 BEGIN 
0301 
B306 
30 
308 
3 


3 

4 

4 

2 

; 

; IF .FCB CFCBSV_TEXT] AND .FCB CFCBS$V_GENERATION] AND 
3 TH 

| 


Ronononofononononofonononofrorory 
LTP oe ot at at et et et ee 
SOOONOUSE —oOno 
SOooooeoooeo: 

WAI 


8 -RAB CRABSL_STS] NEQ RMS$_EOF AND ; ) e 
+4 Pte RABSL_STS] NEQ RMS$_BOF ! Already at beginning of file 
11 SPASSIO_ERROR (PAS$_ERRDURRES); ! Error during RESET 


| 
+ 
If the file has the NOREAD attribute, signal an error. 

| 
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1805 Pe SeRE RES - our ESET procedure 13-808=138e 95:09:87 PASRIL SRESPASRE SES? 68231 - (38 
3 51 1 END; 
7 at oot panes me 
° n 
55 0318 i. e spection moge. 
: 257 0 18 FCB CFCBSV_I SPECTION} = 1 
: 258 1 FCB F CBSVGENERAT ION = 0 
: 259 0320 FCB fFCBS$V-EOF) = 0; 
: 260 0321 FCB CFCBSV“LOCATE) = 0; 
: 61 0 : FCB CFCBSVIPARTIAL_LINE) = 0; 
; 8 0324 \+ 
; RS O3 2 } File is now rewound, do a GET (or set lazy-lookahead if textfile). 
: 266 0327 ; 
: 267 0328 IF .FCB CFCBSV_TEXT 
. ce 
: 270 0331 FCB [FCBSV_LAZY) = ' Lazy lookahead in s 
: $71 0382 ; PFV EDF SV-VAL iret, ieterGe awe 
; o7¢ 033 3 FCB CFCBSL~ “RECORD “aber = 0; ! Reset record number 
: te b33¢ esee”” 
: 275 0336 $ PASSSGET (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 
wm ee 
: 278 0339 i Indicate successful completion 
; 279 0340 jUntock the file 
: 3B b3c3 
: 282 eek 2 FCB CFCBSL_STATUS) = 0; 
> 283 0344 2 PFV CPFVS$V=LOCK = 0; 
> 284 0345 
Pe oct oe 
> 287 0348 1 END; ! End of routine PASSRESET2 
TITLE PASSRESET2 RESET procedure 
“IDENT \1-0 
.EXTRN PASS$RESET2, PASSS10_ HANDLER 
“EXTRN PASSSVALIDAT 
*EXTRN PASSSOPEN. IMP meCICT 
*EXTRN ASSSOPEN- opASSSSIGNAL 
-EXTRN PASSKCR RESN 


ATRN PASS$K7I NSNOTACE 
*EXTRN PASSSORITECN SYSSREWIND 
-EXTRN PASSK ERRDU DURRES 


-EXTRN 
-PSECT _PASSCODE.NOWRT, SHR, PIC.2 
O3FC 000 -ENTRY PASSRESET2, Saye R2,R3,R4,R5,R6,R7,RB,RI ; 0142 
rH 000000006 6 5 000 ray PASSSSIGNAL : 
E C2 000 SUBL #8, SP : 


—TAMMOOD 2 BH KOs TOMMOOWZ ES KO KM TO MMO OOZ EO KCK LO MWMMOOOZ SO KOK TO MMIOOW 
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1-002 PASSRESETS = RESET procedure eee Te ae Yee ie Shs tee cea ie Pee ~( 
7E bs 000¢ CLRL ERROR : 0193 
04 AE 7C O00E CLRQ UNWIND ACT : 
6D OOFF CF DE 001 MOVAL 14$, ( ; 
02 6C 91 00616 CMPB_ ss CAPS, : 0210 
04 1F 00019 BLSSU.-1$ ; 
gf 08 AC bO 00018 MOVL ERROR, ERROR_ADDR 3; 0212 
8 04 AC DO OOO1F 18: MOVL =~ PFV, + 0218 
08 AE 56 DO 000 ; MOVL 6, PFV_ADDR : 
000000006 00 16 000 JSB PASSSVACIDATE_PFV : 0224 
04 AE 01 DO 0002D MOVL #1, UNWIND : 0230 
5 04 Ab 4 00031 MOVAB (RG), R8 : 0236 
06 02 AB F 000 5 BLBS  2(R8), 2$ ; 
000000006 00 16 00039 JSB PASSSOPEN_IMPLICIT ; 0238 
2A 48 1D £0 0003F 2$: BBS #29, (RB): 5$ + 0244 
08 68 1¢ £1 00043 BBC #28, (RB). 3$ + 0254 
08 A6 56 C0 00047 ADDL2 6, 8(R6) : 0257 
03 AB 10 8A 00048 BICB2 #16, 3(R8) > 0258 
50 08 A6 DO O004F 3S: MOVL 8 (RO), PFD + 0261 
yy 04 AO 05 £1 00053 BBS #5, G(PFD), 4$ > 0263 
03 DD 00058 Pike | #3 + 0265 
56 DD OOOSA PUSHL R6 : 
000000006 00 02 FB 0005¢ CALLS #2, PASS$SOPEN ; 
08 11 00063 BRB x} : 
7E D4 00065 4$: CLRL  =(SP) : 0267 
7E 00G 8F 9A 00067 MOVZBL #PASS$K_RESNOTALL, -(SP) ‘ 
0B 11 00068 BRB : 
OA F8 AT 03 £1 0006D 5$: BBC #3, -B(FCB), 7$ + 0274 
7E 04 00072 CLRL = = (§P) : 0276 
7E 00G 8F 9A 00074 MOVZBL #PAS$K_INSNOTALL, -(SP) 3 
69 02 FB 00078 6$: CALLS #2, PASS$SIGNAL : 
04 00078 RET ; 
12 F8 A? €E9 0007C 7S: BLBC -8(FCB), 8$ > 0283 
OD FD A? 04 €1 00080 BBC #4, -3(FCB), 8$ : 
EB A? EC A7 D1 00085 CMPL =-20(FCB), -24(FCB) > 0284 
06 1B O008A BLEQU 8$ : 
000000006 00 16 0008¢ JSB PASS$SS$WRITELN > 0286 
52 FC AZ YE 00092 8$ MOVAB <-4(FCB), R : 0292 
01 Ae 04 8A 00096 BICB2 #4, 1(R2) : 
4C 03 A2 £9 OO09A BLBC  3(R2), 11$ : 0298 
1E A? 94 0009E CLRB = 30( FCB) : 0302. 
06 A? 10 8A OOOA1 BICB2 #16, 6(FCB) : 0303 
35 AZ 94 OOOAS CLRB. ©: 55 3(F CB) > 0304 
57 DD 000A8 98 PUSHL FCB + 0305 
000000006 90 o1 FB OOOAA CALLS #1, SYSS$REWIND : 
6 0 £8 00081 BLBS $$STATUS, 11$ : 
0001825A 8F 50 D1 00084 CMPL  $$STATUS. #98906 : 
04 12 000BB BNEQ  10$ : 
03 a3 E8 0O00BD BLBS 3(R2), 9$ : 
26 50 £8 000C1 10$ BL8S §§ $$STATUS, 11$ ; 
00018574 = &F 08 A7 D1 000C4 CMPL 8 (FCB), #99700 > 0307 
1¢ 13 000CC BEQL 118 : 
0001827A_ = BF 08 A? D1 O00CE CMPL  8(FCB), #98938 : 0308 
le 13 00006 BEQL 11$ : 
00018198  8F 08 A? D1 000D8 CMPL (FCB), #98712 : 0309 
08 13 000E0 BEQL 1$ ; 
7E 006 ar 9A 000E2 MOVZBL #PASSK_ERRDURRES, -(SP) > 0311 
69 1 FB O00E6 CALLS #1, PASSS$SIGNAL 


(3) 
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Elapsed Time: O22 68+" 
Lines/CPU Min: 2536 
Lexemes/CPU-Min: 17446 
paneer Used: 136 pages 
ation Complete 
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& D 16 
PASSRESET2 RESET procedure 16-Sep-1984 5: AX-11 Bliss-32 Page 
1 ati PASSRESET®S = RESET procedure 14- atop 138e 95: 83 ‘33 PASRTL.SRCJPAS ate 3882; 31 7 (4) 
; 0351 1 END ! End of module PASS$RESET2 
3 333 0350 1 
$s 62 0355 0 ELUDOM 
. PSECT SUMMARY 
$ Name Bytes Attributes 
: PASSCODE 311 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
1 Library Statistics 
; tried SyYERSLS socecses Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 13 0 581 00:01.0 
: ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 122 28 33 00:00.4 
; COMMAND QUALIFIERS 
; PL AES/CHE CKO? FELD. SME TEN, OPT EMELE) SUOTRALE A SOME SO PASAE SE TEP OR SOR PRORE SE MSRC$:PASRESET2/UPDATE=(ENH$:PASRESET2 
Size: 311 code + 0 data bytes 
Run Time 708.4 
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